﻿<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>

<script language="VB" runat="server">
    

</script>

<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FIND.ASPX.vb" Inherits="FIND" %>

<asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" Runat="Server">

</asp:Content>

<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server">

    <div style="left: 10%; right: 10%; height: 600px; overflow: scroll">

        <%
            Try
                        Dim ARR As ArrayList _
                                = HttpContext.Current.Session("FIND_ARRAY")
                        For Each [obj] As DataRow In ARR
                            %>
                            <a title="<%=[obj]("TITLE")%> in directory entry" href="Default.aspx?ID=<%=[obj]("id")%>"><%=[obj]("TITLE")%></a><br />
                            <%
                        Next
                        HttpContext.Current.Session("FIND_ARRAY") = Nothing
            Catch ex As Exception
            End Try
        %>

    </div>

</asp:Content>

